home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 2 - Cassandra.iso / pc / Cassandra.exe / Cassandra.dxr / 00003_HideTaskBar.ls < prev    next >
Encoding:
Text File  |  2002-03-18  |  603 b   |  21 lines
  1. on HideTaskBar
  2.   TopWindows = dosGetTopWindowIDs()
  3.   TaskBarFound = 0
  4.   if ilk(TopWindows, #list) then
  5.     repeat with i = 1 to count(TopWindows)
  6.       CurrWindow = getAt(TopWindows, i)
  7.       if dosGetWindowClassName(CurrWindow) = "Shell_TrayWnd" then
  8.         TaskBarFound = 1
  9.         Success = dosSetWindowState(CurrWindow, "Hidden")
  10.         if not Success then
  11.           put "Can't show or hide the taskbar, error # " & dosGetLastError()
  12.         end if
  13.         exit repeat
  14.       end if
  15.     end repeat
  16.     if not TaskBarFound then
  17.       put "Taskbar window could not be found."
  18.     end if
  19.   end if
  20. end
  21.